home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d15 / maximo_1.arc / TXT.ARC / CLIENTS.TXT next >
Text File  |  1991-08-20  |  1KB  |  101 lines
  1. ;
  2. ;  CLIENTS -- clients list module  (c) Copyright 1990 Chris Butler
  3. ;        uses cbuf 1
  4. ;        uses pbuf 1
  5. ;        uses dbuf 1
  6. ;video m ; 640 X 480
  7. set allpsdi off
  8. goto top
  9. all:
  10. set allspdi on
  11. top:
  12.  
  13. setrgb 1 63 63 63 1
  14. local wait 5
  15.  
  16. dload carddff 1
  17. pload card0 1
  18.  
  19. ;color 0
  20. ;clearscr
  21. pfade 10 1 200
  22. pfree 1
  23. waitkey 100
  24.  
  25. ; get pic preloaded
  26. pload invite 1
  27. ;pfade 0  1
  28. putdff 1 40 0 4 ; open card
  29. dfree 1
  30.  
  31. ;  explode card to full screen
  32. color 1
  33. clearscr
  34. color 0
  35. box   110,140 500,370 1
  36. waitkey @wait
  37. box    90,120 520,390 1
  38. waitkey @wait
  39. box   70,100  540,410 1
  40. waitkey @wait
  41. color 1
  42. box   110,140 500,370 1
  43. waitkey @wait
  44. color 0
  45. box    50,80  560,430 1
  46. waitkey @wait
  47. color 1
  48. box    90,120 520,390 1
  49. waitkey @wait
  50. color 0
  51. box    30,60  580,450 1
  52. waitkey @wait
  53. color 1
  54. box   70,100  540,410 2
  55. waitkey @wait
  56. color 0
  57. box   10,40   600,470 1
  58. waitkey @wait
  59. color 1
  60. box    50,80  560,430 1
  61. waitkey @wait
  62. box    30,60  580,450 1
  63. waitkey @wait
  64. box    10,40  600,470 1
  65.  
  66. pfade 12 1
  67. pfree 1
  68. waitkey 250
  69. note 100 10 10
  70. waitkey 300
  71.  
  72. video g
  73. pload clpic5.pic 1
  74. setupscr 1
  75. pfade 0 1
  76. waitkey 200
  77. pan 0,0 1,0 1
  78. mark 752
  79. pan 1,0 R 1
  80. waitkey 2
  81. loop
  82.  
  83. note 100 10 10
  84. waitkey 400
  85.  
  86. color 0
  87. clearscr
  88. resetscr
  89. video m
  90. if @allpsdi==on
  91.   link engr.txt all
  92.  else
  93.   link master.txt entry_6
  94. endif
  95. ;if @allpsdi==on
  96. ;  link tour1.txt engr
  97. ; else
  98. ;  link master.txt entry_6
  99. ;endif
  100. exit    ; SUBR CLIENTS
  101.